home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n19.arc / WKSHEET.SAV < prev    next >
Text File  |  1990-10-13  |  533b  |  22 lines
  1. SAVING WORKSPACE FILES
  2. WKSHEET.SAV
  3.  
  4.        A                 B 
  5. 1     \S             {close}
  6. 2                    {/ System;SaveWorkspace}CHKPOINT~r{esc}
  7. 3                    {open "CHKPOINT.WSP",r}
  8. 4                    {for COUNTER1,1,32,1,RTN_READLN}
  9. 5                    {close}
  10. 6                    {for COUNTER2,1,COUNTER1-2,1,RTN_SAVE}
  11. 7
  12. 8
  13. 9     RTN_READLN     {readln TEXT}{forbreak}
  14. 10
  15. 11
  16. 12    RTN_SAVE       {/ File;SaveNow}r
  17. 13                   {nextwin}
  18. 14
  19. 15    COUNTER1
  20. 16    COUNTER2
  21. 17    TEXT
  22.